﻿Public Class Productos

    Private Sub ProductoBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductoBindingNavigatorSaveItem.Click
        If Me.IdRecetaTextBox.Text <> "" Then
            Me.Validate()
            Me.ProductoBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.DsProductos)
        End If
    End Sub

    Private Sub Productos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: esta línea de código carga datos en la tabla 'DsRecetas.Receta' Puede moverla o quitarla según sea necesario.
        Me.RecetaTableAdapter.Fill(Me.DsRecetas.Receta)
        'TODO: esta línea de código carga datos en la tabla 'DsProductos.Producto' Puede moverla o quitarla según sea necesario.
        Me.ProductoTableAdapter.Fill(Me.DsProductos.Producto)

    End Sub

    Private Sub BuscarRecetaButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarRecetaButton.Click
        Dim form_receta As New Recetas
        form_receta.NombreTextBox.ReadOnly = True
        form_receta.ObservacionTextBox.ReadOnly = True
        form_receta.VerIngredientesButton.Enabled = False
        form_receta.ListadoRecetasButton.Enabled = False
        If form_receta.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.IdRecetaTextBox.Text = form_receta.IdRecetaTextBox.Text
            Me.NombreRecetaTextBox.Text = form_receta.NombreTextBox.Text
        End If

    End Sub
    Dim gr As Integer
    Private Sub ProductoDataGridView_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ProductoDataGridView.CurrentCellChanged
        Try
            'Me.Restprov1.Clear()
            Dim i As Integer
            i = Me.ProductoDataGridView.CurrentRow.Index
            gr = CInt(Me.ProductoDataGridView.Item(0, i).Value)

            If Me.ProductoDataGridView.Item(1, i).Value.ToString <> "" Then
                Me.NombreTextBox.Text = CStr(Me.ProductoDataGridView.Item(1, i).Value)
            End If
            If Me.ProductoDataGridView.Item(2, i).Value.ToString <> "" Then
                Me.CodigoBarraTextBox.Text = CStr(Me.ProductoDataGridView.Item(2, i).Value)
            End If
            If Me.ProductoDataGridView.Item(3, i).Value.ToString <> "" Then
                Me.DescripcionTextBox.Text = CStr(Me.ProductoDataGridView.Item(3, i).Value)
            End If
            If Me.ProductoDataGridView.Item(4, i).Value.ToString <> "" Then
                Me.PrecioVtaUnidadTextBox.Text = CDbl(Me.ProductoDataGridView.Item(4, i).Value)
            End If
            If Me.ProductoDataGridView.Item(5, i).Value.ToString <> "" Then
                Me.PrecioCostoTextBox.Text = CDbl(Me.ProductoDataGridView.Item(5, i).Value)
            End If
            If Me.ProductoDataGridView.Item(6, i).Value.ToString <> "" Then
                Me.DescuentoTextBox.Text = CDbl(Me.ProductoDataGridView.Item(6, i).Value)
            End If
            If Me.ProductoDataGridView.Item(7, i).Value.ToString <> "" Then
                Me.ElaboradoTextBox.Text = CStr(Me.ProductoDataGridView.Item(7, i).Value)
            End If
            If Me.ProductoDataGridView.Item(8, i).Value.ToString <> "" Then
                Me.CantidadStockTextBox.Text = CInt(Me.ProductoDataGridView.Item(8, i).Value)
            End If
            If Me.ProductoDataGridView.Item(9, i).Value.ToString <> "" Then
                Me.IdRecetaTextBox.Text = CInt(Me.ProductoDataGridView.Item(9, i).Value)
            End If

            'Dim dt As DataRow
            dt = Me.DsRecetas.Tables(0).Select("idReceta='" & Me.IdRecetaTextBox.Text & "'")
            If dt.Length = 1 Then
                Me.NombreRecetaTextBox.Text = CStr(dt(0).Item(0))
            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub CodigoBarraTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CodigoBarraTextBox.KeyPress
        'ACEPTA SOLO NUMEROS Y ENTER PASA AL SGTE. FOCO
        If e.KeyChar >= Chr(48) And e.KeyChar <= Chr(57) Or e.KeyChar = Chr(8) Then
            e.Handled = False
        Else
            If e.KeyChar = ChrW(Keys.Enter) Then
                e.Handled = True
                SendKeys.Send("{TAB}")
            Else
                If e.KeyChar < Chr(48) Or e.KeyChar > Chr(57) Then
                    e.Handled = True
                End If
            End If
        End If
    End Sub

    Private Sub CodigoBarraTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CodigoBarraTextBox.TextChanged

    End Sub

    Private Sub PrecioVtaUnidadTextBox_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles PrecioVtaUnidadTextBox.KeyPress
        'ACEPTA SOLO NUMEROS Y ENTER PASA AL SGTE. FOCO
        If Not (Char.IsNumber(e.KeyChar)) And Not (e.KeyChar = Chr(Asc("."))) And Not (e.KeyChar = Chr(13)) And Not (e.KeyChar = Chr(8)) Then
            e.Handled = True
        Else

        End If
    End Sub

    Private Sub PrecioVtaUnidadTextBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles PrecioVtaUnidadTextBox.KeyUp
        PrecioVtaUnidadTextBox.Text = PrecioVtaUnidadTextBox.Text.Replace(".", ",")
        PrecioVtaUnidadTextBox.Select(PrecioVtaUnidadTextBox.Text.Length, 0)
        If comas(PrecioVtaUnidadTextBox.Text.Trim) > 1 Then
            MessageBox.Show("Sobran Comas.", "Atención", MessageBoxButtons.OK, MessageBoxIcon.Error)
            PrecioVtaUnidadTextBox.Text = eliminar_comas(PrecioVtaUnidadTextBox.Text.Trim)
            PrecioVtaUnidadTextBox.Select(PrecioVtaUnidadTextBox.Text.Length, 0)
        End If
        If PrecioVtaUnidadTextBox.Text = "" Then
            PrecioVtaUnidadTextBox.Text = "0"
            PrecioVtaUnidadTextBox.SelectAll()
        End If
    End Sub

    Private Sub PrecioVtaUnidadTextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrecioVtaUnidadTextBox.TextChanged

    End Sub
End Class